100 REM *******************************
110 REM *   EDITIEREN VON SEQ-FILES   *
120 REM *                             *
130 REM *   QUELLE: 64'ER SH1,        *
140 REM *   SEITE 44                  *
150 REM *******************************
160 :
170 :
180 DIMTE$(2000):REM MAX ANZAHL DATENSATZ
190 OPEN15,8,15
200 PRINT"[147]"
210 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
220 PRINT"      LESEN UND EDITIEREN
230 [153]"        EINER SEQ. DATEI
240 PRINT"      L = LESEN EINER DATEI
250 [153]"      B = PROGRAMMENDE
260 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
270 PRINT" WAEHLE:[146]
280 [161]R$:[139]R$[178]""[167]280
290 [139]R$[178]"B"[167][160]2:[160]15:[128]
300 [139]R$[179][177]"L"[167]280
310 :
320 [143] ---- LESEN EINER SEQ DATEI ----
330 :
340 :
350 I[178]1
360 [153]" WELCHE DATEI SOLL GELESEN WERDEN?
370 INPUT"DATEINAME = ";N$
380 FI$=N$+",S,R"
390 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
400 PRINT"  SOLL MIT GET ODER MIT INPUT"
410 PRINT"  GELESEN WERDEN (G/I)?
420 [161]RR$:[139]RR$[178]""[167]420
430 [139]RR$[178]"G"[167]480
440 [139]RR$[178]"I"[167]670
450 [137]420
460 :
470 [143] ----------- GET# --------------
480 [159]2,8,2,FI$
490 [132]15,A1,A2$,A3,A4
500 [139]A1[179][177]0[167][141]2320:[137]350
510 [153]"LOAD"
520 [153]:[153]"        LEERTASTE DRUECKEN!":[153]
530 [153]"        -------------------":[153]
540 [153]""I"WAIT";
550 [161]R$:[139]R$[179][177]" "[167]550
560 [161]#2,A$
570 [139]A$[178][199](13)[167][153]"*":I[178]I[170]1:[137]610
580 TE$(I)[178]TE$(I)[170]A$
590 [153]A$;
600 [137]550
610 [139]ST[179][177]64[167]540
620 [160]2
630 I[178]I[171]1
640 [137]800
650 :
660 :
670 [143] ------- INPUT# -------
680 [159]2,8,2,FI$
690 [132]15,A1,A2$,A3,A4
700 [139]A1[179][177]0[167][141]2320:[137]350
710 [153]:[153]"      LEERTASTE DRUECKEN!":[153]
720 [161]R$:[139]R$[179][177]" "[167]720
730 [132]2,A$
740 TE$(I)[178]A$
750 [153]""I"WAIT";A$
760 [139]ST[179][177]64[167]I[178]I[170]1:[137]720
770 [160]2
780 :
790 :
800 [143] ----- EDITIEREN ------
810 :
820 FLAG[178]0
830 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
840 [153]"  E = EINFUEGEN EINER ZEILE
850 PRINT"  C = AENDERN   EINER ZEILE
860 [153]"  L = LOESCHEN  EINER ZEILE
870 PRINT"  D = DRUCKEN DER DATEI
880 [153]"  2 = WEITER
890 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
900 PRINT"WAEHLE
910 [161]R$:[139]R$[178]""[167]910
920 [139]R$[178]"E"[167][141]1470
930 [139]R$[178]"C"[167][141]1030
940 [139]R$[178]"L"[167][141]1620
950 [139]R$[178]"D"[167][141]1730
960 [139]R$[178]"2"[167]1960
965 [139]R$[178]" "[167]910
970 [137]800
980 :
990 :
1000 [143] ----- AENDERN EINER ZEILE ----
1010 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1020 :
1030 [153]"LOADAENDERN EINER ZEILE
1040 PRINT" I= MIT INPUT (KEIN KOMMA!)
1050 [153]" G= MIT GET (SCHREIBFEHLER VERMEIDEN!)
1060 PRINT" 2= WEITER
1070 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1080 [153]"WAEHLE
1090 GETR$:IFR$=""THEN1090
1100 IFR$="2"THENRETURN
1110 IFR$="G"THEN1300
1120 IFR$="I"THEN1140
1130 GOTO1030
1140 REM -------- INPUT ----------
1150 IFFLAG=1THEN1220
1160 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1170 PRINT"WELCHE ZEILE SOLL GEAENDERT WERDEN?"
1180 INPUT"NR:";N$:N=VAL(N$)
1190 IFN<1ORN>ITHENPRINT:PRINTTAB(8)"NICHT MOEGLICH!":PRINT:PRINT:GOTO1160
1200 PRINT"ALTER INHALT: "TE$(N)
1210 PRINT
1220 PRINT" GEBEN SIE JETZT DEN NEUEN INHALT EIN    (INPUT)
1230 [133]A$
1240 TE$(N)[178]A$
1250 [153]""TE$(N)
1260 FLAG[178]0
1270 [142]
1280 [143] ---- MIT GET ------------
1290 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1300 [139]FLAG[178]1[167]1330
1310 [153]"WELCHE ZEILE SOLL GEAENDERT WERDEN?"
1320 [133]"NR:";N$:N[178][197](N$)
1330 [153]"ALTER INHALT ";TE$(N):TE$(N)[178]""
1340 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1350 [153]" GEBEN SIE JETZT DEN NEUEN INHALT EIN    (GET):":[153]
1360 [161]A$:[139]A$[178]""[167]1360
1370 [139]A$[178][199](13)[167]1420
1380 [153]A$;
1390 TE$(N)[178]TE$(N)[170]A$
1400 [137]1360
1410 :
1420 :
1430 [153]:[153]""TE$(N)
1440 FLAG[178]0
1450 [142]
1460 :
1470 [143]---- EINFUEGEN EINER ZEILE ----
1480 :
1490 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1500 [153]"HINTER WELCHER ZEILE
1510 INPUTN
1520 N=N+1
1530 FORL=ITONSTEP-1
1540 :TE$(L+1)=TE$(L)
1550 NEXTL
1560 I=I+1
1570 FLAG=1
1580 PRINT"SCHREIBEN DER NEUEN ZEILE
1590 [137]1040
1600 :
1610 :
1620 [143] ------ LOESCHEN --------
1630 :
1640 [153]:[153]
1650 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1660 [133]" WELCHE ZEILE LOESCHEN?";N
1670 [139]N[177]I[167][153]"MAX= "I:[137]1710
1680 [129]L[178]N[164]I:TE$(L)[178]TE$(L[170]1):[130]
1690 I[178]I[171]1
1700 [153]"ZEILE"N" IST GELOESCHT"
1710 [142]
1720 :
1730 [143] ----- DRUCKEN DER DATEI -----
1740 [153]
1750 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]
1760 [153]"DRUCKEN DER DATEI
1770 PRINT" 1= DRUCKEN
1780 [153]" 2= WEITER
1790 PRINT"  WAEHLE
1800 [161]R$:[139]R$[178]""[167]1800
1810 [139]R$[179]"1"[176]R$[177]"2"[167]1800
1820 [139]R$[178]"2"[167]1910
1830 [133]"DRUCKER OK?";R$
1840 [159]1,4:[157]1
1850 [153]"DATEI: "N$
1860 [129]J[178]1[164]I
1870 :[153]J;TE$(J)
1880 [130]J
1890 [153]:[153]:[153]:[153]
1900 [152]1:[160]1
1910 [142]
1920 :
1930 :
1940 [143] ----- SPEICHERN DER DATEI -----
1950 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]
1960 [153]"SOLL DER GESAMTE TEXT ERNEUT ABGESPEI-  CHERT WERDEN?
1970 PRINT" 1= JA
1980 [153]" 2= PROGRAMMENDE
1990 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2000 PRINT"WAEHLE
2010 [161]R$:[139]R$[178]""[167]2010
2020 [139]R$[178]"2"[167][138]
2030 [139]R$[179][177]"1"[167]2010
2040 [153]
2050 [133]"WELCHER DATEINAME";N$
2060 :
2070 FI$[178]N$[170]",S,W"
2080 [153]"LOAD"
2090 [160]2:[159]2,8,2,FI$
2100 [132]15,A1,A2$,A3,A4
2110 [139]A1[178]0[167]2200
2120 [139]A1[179][177]63[167][141]2320:[137]1960
2130 [153]:[153]" DER NAME "N$" EXISTIERT SCHON!
2140 PRINT:PRINT" WOLLEN SIE DIESE DATEI UEBERSCHREIBEN?
2150 [153]:[153]" WAEHLE (J/N)
2160 GETR$:IFR$=""THEN2160
2170 IFR$="J"THENN$="@:"+N$:GOTO2070
2180 IFR$<>"N"THEN2160
2190 PRINT:PRINT" VERSUCHEN SIE ES NOCH EINMAL":GOTO1960
2200 FORJ=1TOI
2210 :PRINT#2,TE$(J):PRINT""J,I
2220 NEXTJ
2230 :
2240 PRINT"GESPEICHERT!"
2250 CLOSE2
2260 FORI=1TO1500:NEXT
2270 RUN
2280 :
2290 :
2300 PRINT"[147]"
2310 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2320 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2330 PRINT"             DISKETTENFEHLER!
2340 [153]"  DATEI : "N$
2350 [153]"WAIT":[143] REVERSE OFF
2360 [153]A1,A2$,A3,A4
2370 [160]2
2380 [153]"       BEHEBEN SIE DEN FEHLER UND
2390 PRINT"  ........DRUECKEN SIE >F< ..........
2400 [161]R$:[139]R$[179][177]"F"[167]2400
2410 [153]"LOAD"
2420 [142]